home *** CD-ROM | disk | FTP | other *** search
/ Publication 13 / Publication_13_19xx_Civitas_de_Side_B.d64 / ql effect_amorph (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  672b  |  20 lines
  1. 100 gosub110
  2. 101 o=0:f=o+8
  3. 102 fora=0to13:foro=1to7
  4. 103 printspc(33-a)d$(o)c$(o)"[145]"
  5. 104 printspc(5+a)d$(f-1)c$(f-1)"[145]"
  6. 105 f=f-1
  7. 106 nexto:o=0:f=o+8:nexta
  8. 107 fora=1to6:foro=1to8
  9. 108 printspc(20)a$(o)"[157]";b$(o)"[145][145]"
  10. 109 nexto:end
  11. 110 c$(7)=" ":c$(6)="[165]":c$(5)="[181]":c$(4)="[161]":c$(3)="[182][146]":c$(2)="[170][146]":c$(1)=" [146]"
  12. 111 d$(1)=" ":d$(2)="[167]":d$(3)="[182]":d$(4)="[161][146]":d$(5)="[181][146]":d$(6)="[165][146]"
  13. 112 d$(7)=" [146]"
  14. 113 j$(1)="[145][153][198]":j$(2)="[145][159][210]":j$(3)="[145][154][175]":j$(4)="[145][164]":j$(5)="[145] "
  15. 114 l$(1)="[145][153][198][145]":l$(2)="[145][159][210][145]":l$(3)="[145][154][175][145]":l$(4)="[145][164][145]":l$(5)="[145] [145]"
  16. 115 s$(1)="[145][153][198][192][192][192][192]":s$(2)="[145][159][210][153][198][192][192][192]":s$(3)="[145][154][175][159][210][153][198][192][192]":s$(4)="[145][164][154][175][159][210][153][198][192]"
  17. 116 s$(5)="[145][144] [164][154][175][159][210][153][198]":s$(6)="[145][144]  [164][154][175][159][210]":s$(7)="[145][144]   [164][154][175]":s$(8)="[145][144]    [164]"
  18. 117 s$(9)="[145][144]     "
  19. 118 return
  20.